home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Hyperj-Hz / HyperMIDI.cpt / HyperMIDI / card_3055.txt < prev    next >
Text File  |  1988-02-02  |  2KB  |  118 lines
  1. -- card: 3055 from stack: in
  2. -- bmap block id: 3827
  3. -- flags: 0000
  4. -- background id: 2702
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on idle
  8.   put RxMIDI(16) after card field "Receive"  -- display MIDI in
  9.   -- TxMIDI RxMIDI(16)  -- echo MIDI in to MIDI out
  10. end idle
  11.  
  12.  
  13.  
  14. -- part 2 (button)
  15. -- low flags: 00
  16. -- high flags: A003
  17. -- rect: left=54 top=183 right=205 bottom=154
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 0 / 0
  20. -- text alignment: 1
  21. -- font id: 0
  22. -- text size: 12
  23. -- style flags: 0
  24. -- line height: 16
  25. -- part name: Send Msg
  26. ----- HyperTalk script -----
  27. on mouseUp
  28.   ask "type in MIDI string to send:"
  29.   TxMIDI it
  30. end mouseUp
  31.  
  32.  
  33.  
  34. -- part 3 (button)
  35. -- low flags: 00
  36. -- high flags: A003
  37. -- rect: left=54 top=215 right=237 bottom=154
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 0 / 0
  40. -- text alignment: 1
  41. -- font id: 0
  42. -- text size: 12
  43. -- style flags: 0
  44. -- line height: 16
  45. -- part name: Flush buffer
  46. ----- HyperTalk script -----
  47. on mouseUp
  48.   put RxMIDI("flush") into dummy     -- flushes receive buffer
  49. end mouseUp
  50.  
  51.  
  52.  
  53. -- part 4 (field)
  54. -- low flags: 00
  55. -- high flags: 0000
  56. -- rect: left=162 top=178 right=273 bottom=454
  57. -- title width / last selected line: 0
  58. -- icon id / first selected line: 0 / 0
  59. -- text alignment: 0
  60. -- font id: 3
  61. -- text size: 12
  62. -- style flags: 0
  63. -- line height: 16
  64. -- part name: Receive
  65.  
  66.  
  67. -- part 5 (button)
  68. -- low flags: 00
  69. -- high flags: 0000
  70. -- rect: left=71 top=95 right=172 bottom=436
  71. -- title width / last selected line: 0
  72. -- icon id / first selected line: 0 / 0
  73. -- text alignment: 1
  74. -- font id: 0
  75. -- text size: 12
  76. -- style flags: 0
  77. -- line height: 16
  78. -- part name: Keyboard
  79. ----- HyperTalk script -----
  80. on mouseDown
  81.   global keymap
  82.   global realNote
  83.   get the clickloc
  84.   put item 1 of it into noteNum
  85.   put 1 + (noteNum - 71) DIV 13 into noteNum
  86.   put word noteNum of keymap into realNote
  87.   TxMIDI 90,realNote,60 -- synth must be MIDI ch #1 or OMNI
  88. end mouseDown
  89.  
  90. on mouseUp
  91.   global realNote
  92.   TxMIDI 80,realNote,60
  93. end mouseUp
  94.  
  95.  
  96. -- part 6 (button)
  97. -- low flags: 00
  98. -- high flags: A003
  99. -- rect: left=54 top=247 right=269 bottom=154
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 0 / 0
  102. -- text alignment: 1
  103. -- font id: 0
  104. -- text size: 12
  105. -- style flags: 0
  106. -- line height: 16
  107. -- part name: Clear Display
  108. ----- HyperTalk script -----
  109. on mouseUp
  110.   put empty into card field "Receive"    -- clear the display field
  111. end mouseUp
  112.  
  113.  
  114.  
  115. -- part contents for card part 4
  116. ----- text -----
  117.  
  118.